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Foreword 

If you are already the owner of a Texas TI 99/4A you will have a 
good idea of the range of sound, colour and graphics your 
machine possesses. 

You may not yet, however, be able to write your own 
programs for pleasure, education or business use so we have 
supplied you, in this first book, with a range of programs for you 
to input to your machine. Some programs are short, and simple, 
to begin with and some will lead you towards writing your own 
programs in the future. 

All are designed for use with Texas Basic. 

We hope that these varied programs will give you hours of 
enjoyment from your home computer. 



CHRRRCTER SET* 
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Evasion 



Evasion has you being chased around a maze by 4 evil looking 
green ghosts intent on your downfall. 

You can move around the maze by pressing the arrow keys (E S 
D X). Points are gained by just staying alive! 

You will need to keep your wits about you as well as moving 
with lightning reactions, as this game needs some skill to play. 
1500+ can be considered a respectable score. 

im REM 

110 REM EVfiSION 

120 REM 

130 GOTO 610 

140 FOR J»l TO LEH<: STR*< SC ) ) 

150 CHR«nSCC SEG*< STR*< SC J. 1 ) ) 

160 CALL HCHRRCl/19+J.CHR) 

170 NEXT J 

180 RETURN 

190 REM WHICH WAY? 

200 CALL KEY<0,K.S) 

210 MRN«MRO 

220 MCN«MCO 

230 IF K083 THEN 250 

240 MCN=MCN-1 

250 IF K068 THEN 270 

260 MCN»MCN+1 

270 IF KOeS" THEN 290 

280 MRN«MRN-1 

290 IF K088 THEN 310 

300 MRN«MRN+1 



11 



310 IF <MCN<3>4.<MCN>32>+<MRN<1 >+<riRN>24> 

THEN 410 
320 CALL GCHflR<MRN,MCN..X) 
330 IF X«140 THEN 1210 

340 IF <X«120>+<X«12n+<X»122>THEN 410 
350 IF < MRN«MRO )*< MCN=»MCO >THEN 410 
360 CALL HCHRR<MR0.riC0,32> 
370 CRLL SOUNDU00.330.2> 
380 CRLL HCHRR<MRN,MCN.130> 
390 MRO«MRN 
400 MCO«MCN 
410 RETURN 

420 REM MOVE GHOSTS 

430 R=INT<RND*4>+1 

440 IF NS<R.. 1)«MRN THEN 510 

450 CRLL HCHRR<NS<Ra>,HSCR.2>.STR<R>> 

460 NS< R. 1 >«NS< R. 1 )+SGN< MRN-NS< R. 1 > > 

470 CRLL GCHRR<NS<R.1>..NSCR.2).STR<R>) 

480 IF STR<R><>140 THEN 590 

490 STRCR)=32 

500 CRLL HCHRR<NS<Ra>.NS<R.2>.140) 
505 CRLL SOUND< 100/220..2) 
510 IF NS<R.2>«=MCN THEN 590 
520 CRLL HCHRR<NS<R.1>.NSCR.2).STRCR)> 
530 NS< R . 2 )=NS< R . 2 )+SCN< MCN-NS< R . 2 ) > 
540 CRLL GCHRR<NS<R.n.NSCR.2>.STR<R>> 
550 IF STR<RX>140 THEN 580 
560 STR<R)«32 

580 CALL HCHRR<NS<R.1)..NSCR.2>,140) 
590 IF <MRN«NS<R.1>>*<MCN«NS<R,2)) 

THEN 1210 
600 RETURN 
610 CALL CLEAR 
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620 RRHDOMIZE 

630 CALL SCREEbKS) 

640 CRLL CHflRf. 120."000000PFFF"> 

650 REM SET UP MAZE 

660 FOR J«8 TO 20 STEP 6 

670 CALL HCHflR<J.5.120.e> 

680 CALL HCHAR<:J.14.120..9> 

690 CALL HCHAR<J.24.120;7> 

700 NEXT J 

710 FOR J«4 TO 22 STEP 6 
720 CALL HCHAR< J..5. 120. 13> 
730 CALL HCHARCJ. 19. 120.12) 
740 NEXT J 

730 FOR J'=6 TO 18 STEP 6 
760 CALL HCHARC J.5.. 120.4) 
770 CALL HCHAR<J.10.120.16> 
780 CALL HCHARf.J.27.120.4) 
790 NEXT J 

300 CALL HCHAR<24.5. 120.26) 

810 CALL HCHARC2.5.120.26) 

820 CALL CHARC 121. "0101010101010101") 

830 CALL VCHAR<2.4.121.23) 

840 CALL CHAR< 122. "8080808080808080") 

850 CALL VCHARC2.31.122.23) 

860 CALL CHAR< 130. "3844386CAA3844C6" ) 

870 CALL C0L0R<13.5.1) 

880 CALL CHARC 140. "387CBAFFFFC63838") 

890 CALL CGLORC 14.3.1) 

900 REM SET INITIAL POSITIONS 

910 NS<1.1)«3 

920 NS<1.2)«5 

930 NS<2.1)»3 

940 NS<2.2>«30 . 
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950 NS<3.1>a23 
960 HS<3.2>»5 
970 NS<4.n«23 
980 NS<4.2>a30 
990 M$a" SCORE « " 
1000 PR=1 
1010 PC«11 
1020 GOSUB 1330 
1030 FOR J«l TO 4 
1040 STR<J>»32 
1050 NEXT J 
1060 FOR J»l TO 4 

1070 CRLL HCHRR<NS<J.1).NSCJ.2).140) 

1080 NEXT J 

1090 MRN=11 

1100 MR0=11 

1110 MCN«18 

1120 MC0«18 

1130 CALL HCHRR<MRN.MCN.. 130> 

1140 GOSUB 200 

1150 GOSUB 430 

1160 GOSUB 200 

1170 SC«SC+10 

1180 GOSUB 140 

1190 GOTO 1140 

1200 REM CAPTURED 

1210 FOR J=660 TO 110 STEP -20 

1220 CRLL SOUND<200, J.2) 

1230 NEXT J 

1240 M$a"PLflY RGRIN?" 

1250 PR=13 

1260 PC=11 

1270 GOSUB 1330 
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1280 CfiLL KEY<0.K.S> 

1290 IF S«0 THEN 1280 

1300 IF K089 THEN 1380 

1310 SCa0 

1320 GOTO 130 

1330 FOR J«l TO LEN<M$) 

1340 CHR«flSC<SEG$<ri$. J/l)> 

1350 CRLL HCHflRCPR.PC+J.CHR) 

1360 NEXT J 

1370 RETURN 

1380 END 



Invader 



It's time to defend the earth as you shoot down a never-ending 
stream of alien invaders. Allow three to escape and the game 
ends. 

Use the space bar to fire. 
100 REM 

110 REM INVRDER 
120 REM 

130 CRLL CLEAR 

140 RRND0MI2E 

150 CN=3 

160 CRLL CLERR 

170 CRLL SCREEH<15) 

180 REM DEFINE CHRRRCTERS 

130 CRLL C0L0R<13.13a> 

200 CALL CHRR< 130. "3C7EBDBDPF3C428r' > 

210 CALL COLOR< 14.5.1) 

220 CRLL CHRR<136."1818FFFFFFFRFFRF") 

230 CRLL C0L0RC15.16.1) 

240 CRLL CHRR< 144. "0808080808030608" ) 

250 REM INVRDER POSITION 

260 R=INT<RND«21+2) 

270 F=0 

280 RP=1 

290 GOSUB 740 

300 CRLL HCHRRC24. 15. 136> 

310 RP=RP+1 

320 CRLL HCHRRCR.flP-1.32) 
330 CRLL HCHRR<R.RP, 130) 
340 IF RP<30 THEN 400 
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350 CALL CLEAR 

360 CN«CN-1 

370 IF CN«0 THEN 570 

330 GOSUB 740 

390 GOTO 260 

400 IF F«=l THEN 56© 

410 REM FIRE? 

420 CALL KEY<0,K.S> 

430 IF K032 THEN 560 

440 F»l 

450 CALL SOUNDC200.-6.2) 

460 CALL VCHAR< 1.15. 144^23) 

470 CALL VCH ARC 1,1 5. .32.-23 : 

480 IF AP015 THEN 560 

490 CALL SOUNDC750ji-7.2) 

500 CALL SCREEN<9> 

510 SC«SC+100 

520 GOSUB 670 

530 CALL SCREEN<15> 

540 GOSUB 740 

550 GOTO 260 

560 GOTO 300 

570 PRINT "YOUR SCORE' ".sSC- ' ' • 

580 INPUT "ANOTHER GAME? "'Q$ 

590 IF <SEG*<:Q*.l/l>«"N">4.f.SEG$<Q*.l,l> 

a"Tn")THEN 650 
600 SCw0 
610 CN«0 
620 CN«3 
630 CALL CLEAR 
640 GOTO 260 
650 STOP 

660 REM SUBROUTINES 
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670 FOR D«l TO 100 
680 NEXT D 
690 RETURN 

700 FOR MS»1 TO LEN<M$> 

710 CRLL HCHflRCl.PSN+MS.flSC<SEG$<MSi. 

MS, 1 >>> 
720 NEXT MS 
730 RETURN 
740 PSN=5 

750 M$=" BASES « "S<STR$<:CN> 
760 GOSUB 700 
770 PSN«17 

7S0 M$="SCORE = "a^STRSCSO 
790 GOSUB 700 
800 RETURN 
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3-D Maze 



This program gives an excellent demonstration of the graphics 
capabilities of the TI 99/4A. You see a perspective view of the 
inside of a maze as you wander through it, trying to find the way 
out! 

To face in a compass direction, press keys N, S, E, or W. To 
move forwards press F. Note that you can only move by pressing 
F, although the direction keys will change the viewpoint. 

100 REM 

110 REM 3-D MAZE 
120 REM 

130 CALL CLEAR 

140 CALL SCREEN<16) 

150 REM DEFINE CHARACTERS 

160 CALL COLORC 13.3^3) 

170 CALL C0L0R<14/3.n 

180 CALL CHAR<130."FFFFFFFFFFFFFFFF"> 

190 CALL CHAR<13e."0103070FlF3F7FFF") 

200 CALL CHARC 139/ ••FEFCFeF0E0C090" > 

210 CALL CHARC 140. "80C0E0F0F8FCFEFF" > 

220 CALL CHARX141.. "7F3F1F0F070301") 

230 XV»10 

240 YV«13 

250 PRINT "3-D MAZE" « ' 

260 INPUT "skill level? type a number 
between 5 < easy ) and 99 
< difficult) and Press enter. "»LN 

270 IF <LN>4)*<LN<9nTHEN 300 

280 PRINT ' » "5 TO 90 PLEASE" - ' 

290 GOTO 260 
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300 DIM MO0.. 12> 

310 PRINT • ' "wait. . . " ' « 

320 RRNDOMIZE 

330 GOTO 760 

340 REM END WRLL 

330 X«XV 

360 Y«YV 

370 FOR 1=1 TO 5 

380 CALL VCHflR<X..VM30.6> 

390 Y=Y+1 

400 NEXT I 

410 RETURN 

420 REM SIDE WALL 

430 XssXV 

440 Y«YV+5 

450 N«6 

460 FOR l^i TO 9 

470 CALL VCHflRCX..Y. 130.N) 

480 CALL VCHARCX-l.Y.. 138) 

490 CALL VCHAPXX+N..Y. 141 ) 

500 N«N+2 

510 X«X-1 

520 Y«Y+1 

530 NEXT I 

540 RETURN 

550 REM SIDE WALL 

560 X«XV 

570 YsYV 

380 N=6 

590 FOR 1=1 TO 9 
600 CALL VCHARCX.Y; 130.N) 
610 CALL VCHRR<X+N.Y.. 139) 
620 CALL VCHARCX-1.Y.140) 
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630 XaX-1 
640 Ys=Y-l 
650 N«N+2 
660 NEXT I 
670 RETURN 

680 REM SIDE WALL DOOR 
690 GOSUB 420 

700 CALL VCHRR<XV-6.YV+10.32,44> 
710 RETURN 

720 REM SIDE WRLL DOOR 
730 GOSUB 550 

740 CALL VCHflR<XV-7.YV-6.32..44> 

750 RETURN 

760 GOSUB 1590 

770 FOR 1=1 TO LN 

780 FOR J^l TO 12 

790 RaINT<:RND*1.9+l> 

800 IF M<I.JK>0 THEN 820 

810 Ma/J>«R 

820 NEXT J 

830 NEXT I 

840 FOR 1*1 TO 12 

850 M<:LN,n«l 

860 m<:ln-i.i>«2 

870 MC1.I>==4 

880 IF M<2.1)«3 THEN 990 

890 M<:2.I>=1 

900 NEXT I 

910 FOR 1=1 TO LN 

920 M<ia>»l 

930 MU. 12 5=1 

940 NEXT I 

950 R=LN-1 
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960 C«2 

970 CALL CLEAR 

980 ON D+1 GOTO 990.1070,1030.1119 
990 OH M<R-1.C>G0SUB 340. 410. 410.. 410 
1000 OH M<R.C-1 >GOSUB 550.720.720.720 
1010 OH MCR.C+1 )GOSUB 420.660.680.680 
1020 GOTO 1140 

1030 OH M<R+1,C>G0SUB 340.410.410.410 
1040 OH MCR.C+1 )GOSUB 550.720.720.720 
1050 OH MCR.C-UGOSUB 420.680.680.680 
1060 GOTO 1140 

1070 OH MCR.C+1>G0SUB 340.410.410.410 
1080 OH MCR-l.OGOSUB 550.720.720.720 
1090 OH rKR+L-OGOSUB 420.680.680.680 
1100 GOTO 1140 

1110 OH M<R.C-1 >GOSUB 340.410,410.410 

1120 OH MCR+1,C>G0SUB 550.720.720.720 

1130 OH MCR-l.OGOSUB 420,680.680.680 

1140 REM PRIHT DIRECTIOH 

1150 IF DO0 THEH 1170 

1160 CALL HCHflR(23.28.7S) 

1170 IF D02 THEH 1190 

1180 CRLL HCHflR<23.28.83) 

1190 IF DOl THEH 1210 

1200 CALL HCHRPX 23. 28. 69 > 

1210 IF D03 THEH 1240 

1220 CALL HCHRRC23.28.87) 

1230 REM WHICH WRY? 

1240 CRLL KEy<0.K.S) 

1250 IF S=0 THEH 1240 

1260 IF K»70 THEH 1320 

1270 IF K-78 THEH 1470 

1280 IF K=e3 THEH 1490 
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1290 IF K»69 THEN 151© 
1300 IF K«87 THEN 1530 
1310 GOTO 1240 
1320 MVaMV+l 

1330 ON D+1 GOTO 1340.1419.1380.1440 
1340 IF ri<R-l.C>«l THEN 1550 
1350 RaR-1 

1360 IF M<:R.C>=4 THEN 1560 
1370 GOTO 570 

1380 IF M<R+1.C>«1 THEN 1550 
1390 R*R+1 
1400 GOTO 970 

1410 IF M<R..C+1)=1 THEN 1550 
1420 C«C+1 
1430 GOTO 970 

1440 IF ri<R.C-l>«l THEN 1550 

1450 C«C-1 

1460 GOTO 970 

1470 D«0 

1480 GOTO 970 

1490 D«2 

1500 GOTO 970 

1510 D«l 

1520 GOTO 970 

1530 D=3 

1540 GOTO 970 

1550 GOTO 1140 

1560 PRINT "coTn9ratu.latioT(iis! you. 

escaped in o-nly";MV.« "moves" 
1570 STOP 

1580 REM PLOT mZE 
1590 R4^1 

1600 Rl=INT<RND*7+3> 
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1610 R2-INTCRHD*4+2> 

1620 FOR I«R4 TO R4+R2 

1630 IF I=LH-1 THEN 1819 

1640 M<I.R1>=3 

1650 NEXT I 

1660 R4=R4+R2 

1670 ri<R4+l,Rl)sl 

1 680 R3= I NTC RND*2+ 1 > 

1690 IF R302 THEN 1710 

1700 R3--1 

1710 R5=INT':RND*3+2) 

1720 FOR ls=l TO R5 

1730 IF CRl+RSJtclXU THEN 1750 

1740 R1=R1-1 

1750 IF <R1+R3*I»1 THEN 1770 

1760 R1=R1+1 

1770 M<R4.R1+R3*I)=3 

1780 NEXT I 

1790 R1-R1+R5*R3 

1800 GOTO 1610 

1810 RETURN 
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Caterpillar 

You are in control of the body of a fast growing caterpillar. 
Scattered around the screen are spiders which must be avoided. If 
you hit either a spider or your own body the game ends. 

The control keys are: 1 - Up 

2 - Down 
9 -Left 
0- Right 

One point is scored for each segment of body produced. 
100 REM 

ne REM CRTERPILLRR 
120 REM 

130 CALL CLERR 
140 RANDOMIZE 

150 PRINT "CRTERPILLRR" • ' ' « 

160 PRINT "coYitrol keys'"'' 

170 PRINT "1 « U.P" 

180 PRINT "Z a dowYi" 

190 PRINT "9 « left" 

200 PRINT "0 « right" » ' 

210 INPUT "Press etiter to start" 'NUL$ 

220 DIM MEMC32/32> 

230 CALL C0L0RC14..2.1) 

240 CALL CHAR<130/"183C7EFFFF7E3C18") 

250 CALL CHRR<136."8124997E187E9324"> 

260 X«=4 

270 Y=4 

280 K=48 

290 CALL SCREEN<16) 
300 CALL CLEAR 



310 REM SET UP SCREEN 

320 FOR J«l TO 29 

330 R 1 = I NT< RND*24+4 > 

340 R2=INTCRHD*23+1> 

350 MEMf.R2.Rl>=3 

360 CRLL HCHRRCR2.R 1.136) 

370 NEXT J 

380 CALL COLORS 13. 13.1) 
390 REM PRINT BODY 
400 IF >«1 THEN 660 
410 IF Y<4 THEN 680 
420 IF X>24 THEN 700 
430 IF Y>28 THEN 720 
440 CRLL SOUNDC50.262.7> 
450 CRLL HCHRRCX.Y.. 130) 
460 SC*=SC-»-l 

470 IF MEM<X.Y>«3 THEN 760 

480 MEM<X.Y>=3 

490 REM WHICH NAY? 

300 CALL KEY<0.KY.S> 

510 IF S«0 THEN 330 

520 K~KY 

530 IF K=50 THEN 580 

540 IF K*=4S THEN 600 

550 IF K=49 THEN 620 

560 IF K-57 THEN 640 

570 GOTO 400 

380 X»X+1 

590 GOTO 400 

600 Y^Y+l 

610 GOTO 400 

620 X=X-1 

630 GOTO 400 
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640 Y«Y-1 

650 GOTO 400 

660 X«l 

670 GOTO 730 

680 Y'a4 

690 GOTO 730 

700 X«24 

710 GOTO 730 

720 Y»28 

730 MEri<XjiY>«0 

740 SCoSC-l 

750 GOTO 400 

760 CALL SOUND<1000.-S.2) 

770 PRINT "your score is"jSC« « « ' 

780 INPUT "Play agal-n? <Y/'N>"'Q$ 

790 IF <SEG«<Q9.. l.n«="ti")+<SEG$<Q$.. 1^ 

«"N">THEN 870 
800 FOR J»I TO 32 
810 FOR K=l TO 32 
820 MEM<J.K>«0 
830 NEXT K 
840 NEXT J 
850 SCa0 
860 GOTO 220 
870 END 



Snake 



This could be called "Caterpillar's Revenge"! 

It's the spiders turn to be eaten as you move a fast growing snake 
around the screen. Hazards in this game are a number of 
randomly placed rocks. 

Control keys are: E - Up 

X - Down 
S - Left 
D - Right 

Points are awarded for the number of spiders eaten. Eat enough 
and a new screenful will be generated! 

100 REM 

110 REM SHRKE 
120 REM 

130 CALL CLEAR 

140 RANDOMIZE 

150 PRINT "SNAKE" - • • 

160 PRINT "control keys'"'' 

170 PRINT "E « UP" 

180 PRINT ")< « dowti" 

190 PRINT "S « left" 

200 PRINT "D » riSht"' ' 

210 INPUT "Press enter to start" 'NUL$ 

220 DIM MEM< 32.32) 

230 REM DEFINE CHSRACTERS 

240 CALL COLORC 14, jjr; 1 ) 

250 CALL CHARC 130, "183C7EFFFF7E3C19" > 
260 CALL CHAR<:i36,"8124997E187E9924" > 
270 CALL COLOR< 15..4, 1 ) 
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280 CALL CHflR<144/"387EFFFFFFFFFF7E"> 
290 X«4 
300 Y=4 
310 K=6e 

320 CRLL SCREENS 2 > 
330 CALL CLERR 

340 REM POSITION ROCKS Z< SPIDERS 

350 FOR J="l TO 29 

360 Rl:=INT<RND*24+4> 

370 R2«INT<RND*23+1> 

380 IF MEM<R2.R1>«2 THEN 360 

390 MEM<R2..R1 >2 

400 CALL HCHfiR<R2.Rl.. 136) 

410 NEXT J 

420 FOR J=l TO 20 

430 Rl«INT<RND*24+4) 

440 R2«INT<RND*23+1> 

450 MEMCR2.R1 >»=3 

460 CALL HCHAR<R2.R1.. 144> 

470 NEXT J 

480 CALL COLORC 13.7. 1 > 
490 IF X<1 THEN 770 
500 IF Y<4 THEN 790 
510 IF X>24 THEN 810 
520 IF Y>2e THEN 830 
530 CALL SOUNDS 50. 262.. 7) 
540 CALL HCHARCX.Y,130) 
550 IF MEM<X..YX>2 THEN 580 
560 SC«SC+10 

570 IF SC/280«INT<SC/280>THEN 920 

580 IF MEM<X.Y)«3 THEN 860 

590 riEM<X.Y>=3 

600 REM WHICH WAY? 



610 CALL KEYO.KY.S) 
620 IF Sk0 then 640 
630 K~KY 

640 IFK^SB THEN 690 

650 IF K«68 THEN 710 

660 IF K«69 THEN 730 

670 IF K«83 THEN 750 

680 GOTO 490 

690 X=X+1 

700 GOTO 490 

710 Y«Y+1 

720 GOTO 490 

730 X«X-1 

740 GOTO 490 

750 Y«Y-1 

760 GOTO 490 

770 X«l 

780 GOTO 840 

790 Y«4 

800 GOTO 840 

810 X»24 

820 GOTO 840 

830 Y«28 

840 MEri<X.Y>=0 

850 GOTO 490 

860 CRLL SOUND< 1000. -3,2 > 

870 CALL SCREEN<16> 

880 PRINT "your score i5"jSC«»«« 

890 INPUT "Play aSalti? <Y/'N>":Q$ 

900 IF CSEG«<Q$.l.l>="-n"H<SEG$CQ$.l/ 

«»N">THEN 980 
910 SC«0 

920 FOR J«l TO 32 
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930 FOR K=«l TO 
340 MEM<J.K>«0 
950 NEXT K 
960 NEXT J 
970 GOTO 220 
980 END 



Simon 



This is the traditional game of Simon. 

The computer will print a sequence of numbers for you to 
memorise. 

You will be asked to repeat the sequence. If you guess correctly, 
the length of the sequence will be increased for your next attempt. 

100 PsEM 

110 REM SIMON 
120 REM 

130 CRLL CLEAR 
140 CN=1 

150 PRINT "yoar seq aence ' " ' = 

160 R$»"" 

170 FOR I«l TO CN 

180 RRNDOMIZE 

190 R«INT<RND*9+n 

200 PRINT Rj 

210 IF I/^9<>INTa/9>THEN 230 

220 PRINT : « 

230 R$=R$e<STR$< R ) 

240 NEXT I 

250 FOR DEL«=1 TO 700 

260 NEXT DEL 

270 CRLL CLERR 

280 INPUT "your 9u.ess«"'G$ 

290 IF G««R$ THEN 320 

300 PRINT "the correct se«lu.e^ice wai.s'"'R$ 

310 GOTO 330 

320 PRINT "correct!"'' 
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330 CH^CH+1 

340 GOTO 350 

350 INPUT "a9ai-n? "«Q$ 

r=i60 IF <:seg$<:q$. ><>"ti" >*<seg$c:q$^ 1. 

1 K>"H ">THEW 150 
370 PRINT "you. correctly rernembered s. 

se«lu.eTiCi* of" .i CN~1 j "riumbers. " ' ' 
380 END 
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Organ 



This program turns your TI 99 into a mini electronic organ! The 
top letter row (starting with Q) forms the keyboard. 

As presented it covers 1 1 notes around middle C but this can be 
easily extended to use the entire keyboard by the extension of the 
data statements in lines 370 onwards. 

After playing a sequence of notes, press the space bar for a repeat 
performance! 

100 REM 

U0 REM ORGAN 
120 REM 

130 CALL CLEAR 

140 DIM LTR<ll>.HOTE<m.MEM<:i00> 

150 REM READ IN DATA 

160 FOR J=X TO 11 

170 READ LTRCJ) 

180 READ NOTE<:j> 

190 NEXT J 

200 PRINT "READY" : '• 

210 REM LOOK AT KEYBOARD 

220 CALL KEYC0.K.S> 

230 IF K«32 THEN 330 

240 FOR J=l TO 11 

250 IF LTR<J>=K THEN 280 

260 NEXT J 

270 GOTO 220 

280 CNT=CNT+1 

290 MEMC CNT >=NOTE< J > 

300 CALL SOUND<500.NOTE< J>.2> 
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310 GOTO 220 

320 REM PLRY MEMORY 

330 FOR J«i TO CNT 

340 CALL SOUND<500,MEM< J).2) 

350 NEXT J 

360 GOTO 220 

370 DRTfl 31. 165 ..87 ..175.69.196.82.220 
380 DRTfl 84.247.89.262.85.294.73.330 
390 DRTfl 79.349.80.392.47.440 



Horse Race 



A horse race simulation for penniless punters. You start with 
£100, and bet on any one of five horses. Surprisingly addictive, 
even for non-gamblers. 

100 REM 

110 REM HORSE RACE 
120 REM 

130 CRLL CLERR 

140 CALL SCREEN<16> 

150 RANDOMIZE 

160 DEF RFH=INT<RND*5+l > 

170 SUM=100 

180 REM ASSIGN STRING VALUES 

190 A$<n«"bor-n loser" 

200 A$<2>«"9olde'n wonder" 

210 A$<3>«"bXu.e rum" 

220 n$<4>=5"sP3.ce i-nvader" 

230 A$< 5)= "Punter's desPa.ir" 

240 PRINT "HORSE RACE"' 

250 PRINT "you are bettinQ on the 

outcome of a horse race- " - - 
260 PRINT "you start with 100 Pounds. 

9ood luck ! " « ' 
270 REM MAIN LOOP 
280 PRINT "running are'"-*' 
290 PRINT " 1. born loser" 
300 PRINT " 2. 9olden wonder" 
310 PRINT " 3. blue rum" 
320 PRINT " 4. space invader" 
330 PRINT " 5. Punter's despair"'' 
340 PRINT "all horses Pay 3-1."'' 
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3550 INPUT "how much do you bet? "'BET 
360 IF <BET>SUM>+CBET<0)THEH 3S0 
370 PRINT ' ' 

380 INPUT "oil what number horse? "«HRS 
390 PRINT ' • « • 

400 IF <HRS<1 >+<HRS>5>THEN 380 
410 PRINT "they're off!"':'« 
420 GOSUB 710 
430 R«RFN 

440 PRINT "it's "jfl$<R>j" in the 

450 GOSUB 710 
460 R1«RFN 

470 IF R1»R THEN 460 

480 PRINT "ruTmnin9 neck -and neck is 

".5fl$<Rl >.«"."'.! = 

490 GOSUB 710 

500 PRINT "it's ".«fl$<Rl)j" in the 

lead.": • ' 
510 GOSUB 710 
520 R2«RFN 

530 IF <R2«R1 )+<:r2«R>THEN 520 

540 PRINT R$<R2>j" is Pu\Un9 ahead."' 

550 GOSUB 710 

560 PRINT "and it's ".!R$<R2>j" the 

winner! t t >. 
570 IF HRSOR2 THEN 630 
5S0 SUM=SUM+3*BET 

530 PRINT "you. win! you. now have"; SUM; 

"Pounds. " •• • 
600 GOSUB 710 
610 GOSUB 710 
620 GOTO 670 



630 suri=sur'i~BET 

640 IF SUri<=0 THEN 689 

650 PRINT "you. lose! aou. now have"; SUM j 

660 GOTO 600 
670 GOTO 280 

680 PRINT "aou/ re broke!"'' 

690 STOP 

700 REM DELAY 

710 FOR K==l TO 1000 

720 NEXT K 

730 RETURN 
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Tennis 



For two players. Each player controls a bat, player one uses keys 
Q and A for the left hand bat, player two uses keys O and L for 
the right hand bat. 

A player's score is incremented by one if the opposing player 
misses the ball. The game ends when either players score reaches 
9. 

This program uses routines that can form the basis of many bat 
and ball games. Note particularly the move ball subroutine and 
the two bat subroutines. 

Budding progranamers might like to extend the game to give a 
one player option by replacing either player subroutine with one 
giving the computer control of the bat. 

100 REM 

110 REM TENNIS 

120 REM 

130 GOTO 770 

140 REM MOVE BALL 

150 CALL HCHFHR<:YP..HP..32> 

160 xp=;kp+xd 

170 YP«YP+YD 

180 IF <YP>22>+<.YP<4>THEN 190 ELSE 210 
190 YD«-YD 

200 CALL SOUNDS 100.. 200.. 2 > 
210 CALL GCHAPXYP.XP.CH> 
220 IF CHOI 30 THEN 290 
230 CALL SOIJHD< 100. 300.2 > 
240 KD«-XD 

250 CALL VCHAR<YP.XP.130> 
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260 YP=YP+YD 
270 XP«XP+XD 
280 GOTO 310 

290 IF <XP<2>+CXP>31>THEN 600 
300 CALL HCHflPXYP.XP. 140) 
310 RETURN 

320 REM PLAYER ONE 

330 CALL KEY<0.K.S> 

340 IF K081 THEN 360 

350 Rl«Rl-2 

360 IF K065 THEN 380 

370 Rl«Rl+2 

380 IF R1=R10 THEN 450 

390 IF CR1>2:>*<R1<24>THEN 420 

400 R1«R10 

410 GOTO 450 

420 CALL VCHARCR10.C1.32.2> 

430 CALL VCHAR< Rl. CI.. 130.2 > 

440 R10=R1 

450 RETURN 

460 REM PLAYER TWO 

470 CALL KEY<0.K.S> 

480 IF K079 THEN 500 

490 R2=R2-2 

500 IF K076 THEN 520 

510 R2'=R2+2 

520 IF R2»R20 THEN 590 

530 IF CR2>2:'*CR2<24>THEN 560 

540 R2*=R20 

550 GOTO 590 

560 CALL VCHARCR20..C2..32.2) 
570 CALL VCHARCR2..C2. 130.2 > 
580 R20«R2 
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590 RETURN 

600 CALL HCHflR<YP..XP..32> 
610 CALL SOUHDC 100. 120..2> 
620 IF XP>3 THEN 670 
630 SC2«SC2+i 

640 CALL HCHflPX 1.22.RSC<STR$<SC2>>> 
650 IF SC2«9 THEN 740 
660 GOTO 700 
670 SCl«SCl+i 

680 CALL HCHAR<: 1 . U /flSC'' STRJfe'T. SCI '> > ) 

690 IF SC1«9 THEN 740 

700 XP=16 

710 YP«12 

720 YD~~YD 

730 GOTO 300 

740 FOR DEL«1 TO 1500 

750 NEXT DEL 

760 END 

770 CALL CLEAR 
780 R10=12 
790 R20«12 
800 Rl=12 
810 R2=12 
820 Cl«4 
830 C2«31 

840 CALL CHARf. 130. "1818191818181818" 
850 CALL CHAPX 140. "0000103S7C3810" > 
860 CALL VCH ARC Rl.C 1.130.2) 
870 CALL VCHAR<R2.C2. 130.2 > 
880 XD=1 
890 YD«1 
900 XP«14 
910 YP«12 



920 REM MAIN LOOP 
930 GOSUB 130 
940 GOSUB 330 
950 GOSUB 150 
960 GOSUB 470 
970 GOTO 930 
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Space Attack 



You are being attacked by hordes of aliens, which are appearing 
at random on the screen. Move your laser sight by using the arrow 
keys (E, S, D, X). Fire by pressing the space bar. 

You will be overrun and destroyed if the number of aliens 
exceeds twelve. Since you are in E-space, if you fire into empty 
space (i.e. miss!), your laser will be reflected back and you will 
suffer an equally rapid demise! Remember this, since aliens have 
a habit of disappearing suddenly! 

100 REM 

lie REM SPACE RTTflCK 
120 REM 

130 CRLL CLEAR 

140 CALL SCREEN-: 16 > 

150 PRINT "SPACE ATTACK" = ' = 

169 INPUT "skill level? U=£u.icide.. 

170 IF <SK>50)+.:SK<1 )THEN 160 
180 CALL CLEAR 

190 CALL SCREENf.2) 
200 RANDOMIZE 
210 R«12 
220 C«16 

230 REM DEFINE CHARACTERS 

240 CRLL C0L0R<1.16.. 1) 

£50 CALL C0L0R<2. 16.. 1 ) 
260 REM 

270 CALL CHAR04.. "00183C7E567E66" •;• 

280 CALL CHAR<33."000018183C18"> 

290 CALL CHAR<40, "FF81818iei8181FF" ) 
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300 CALL CHRR< 41. "FF8 1999980998 IFF" > 

310 CALL CHRR'C42. "FFS'9BDFFD7FFE7FF" ) 

320 DEF RFR=IHTCRND*23+1 > 

330 DEF RFC«INT<RHD*24+4> 

340 REM RANDOM POSITIONS 

350 RW=RFR 

360 CL«RFC 

370 CALL GCHRRCRW.CL.W) 
380 IF W032 THEN 350 
390 RVaINT<RND*8K+l ) 
400 IF RV>2 THEN 450 
410 CALL HCHAR<RW.CL.34> 
420 ECN=sECN+l 
430 IF ECN>12 THEN 490 
440 REM MOVE LASER SIGHT 
450 CALL KEY<:0.K/S> 
460 IF K032 THEN 680 
470 CALL GCHAR<R..C.W> 
480 IF WO40 THEN 600 
490 CALL SOUND< 1000. -6.2 > 
500 CALL SCREENS 9 > 
510 X«SIN<X> 

520 PRINT "your score is'VsSC 

530 CALL SCR5EN<16) 

540 INPUT "another 93.me?"'Q$ 

550 IF <SEG*<Q$.1.1)«"N">+<SEG$<:Q$.. 1. 

:="n")THEN 590 
560 SC=0 
570 ECN«0 
580 GOTO 180 
590 STOP 
600 SC«SC+10 
610 ECN=ECN-1 
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620 CALL HCHRRCR.C.40> 

630 CALL SOUNDT.500. U0. 

640 CALL C0L0RC2..9.. 1 > 

650 X=SIW<J<> 

660 CALL C0L0R<2.. 16.1> 

670 GOTO 350 

680 IF K069 THEN 750 

690 IF R=l THEN 750 

700 CALL HCHAR<:R..C.32> 

710 IF M0>33 THEN 73© 

720 CALL HCHRR<:R,C.M0> 

730 R=R~1 

740 GOTO 950 

750 IF K088 THEN 820 

760 IF R=23 THEN 820 

770 CALL HCHAR<R.C.32) 

780 IF ri0>39 THEN 800 

790 CALL HCHAR<R..C.riO> 

800 R=R+1 

810 GOTO 950 

820 IF K06S THEN 890 

830 IF C=28 THEN 890 

840 CALL HCHAR<R.C.32) 

850 IF M0>39 THEN 870 

860 CALL HCHAR<R.C.riO> 

870 C«C+1 

880 GOTO 950 

890 IF K083 THEN 950 

900 IF C=4 THEN 950 

910 CALL HCHAR<R.C.32> 

920 IF M0>39 THEN 940 

930 CALL HCHAR<R.C.MO> 

940 C«C-1 



950 CALL GCHflR<R.C.W> 
960 MO«W 
970 W«W-31 

980 ON W GOTO 990.1010.1030.990.1010. 

1030.990.990.990. 1010. 1030 
990 CRLL HCHflR<R.C.40> 
1000 GOTO 350 
1010 CALL HCHflR<R.C.41 ) 
1020 GOTO 350 
1030 RC«INT<RHD*8+1> 
1040 IF RCOl THEN 1070 
1050 ECN«ECN-1 
1060 GOTO 990 
1070 CRLL HCHflRCR.C.42) 
1080 GOTO 350 



46 



Towers of Hanoi 



This program simulates the well known puzzle, Towers of Hanoi. 

Move the column numbers, one number at a time, from the left 
hand tower (no. 1) to the right hand tower (no. 3), in as few 
moves as possible. You may not place a larger number on top of 
a smaller number. 

100 REM 

110 REM TOWERS OF HRNOI 
120 REM 

130 CALL CLEAR 
140 CN«1 

150 INPUT "mmber of levels < 1 to 

10)? "«ND 
160 IF <ND>10>+<HD<1>THEN 630 
170 FOR I»11-ND TO 10 
180 fi<l.I>*=I 
190 NEXT I 

200 REM PRINT TOWERS 

210 FOR J«l TO 10 

220 FOR 1=1 TO 3 

230 IF fl<I.J>=0 THEN 250 

240 PRINT TflB<I*5>;fl<I.J>; 

250 NEXT I 

260 PRINT 

270 NEXT J 

280 FOR I«11-ND TO 10 
290 IF fl<3.IX>I THEN 330 
300 NEXT I 
310 PRINT « « : : 
320 GOTO 600 
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330 PRINT ' ' ' : 
340 NM»NM+1 

350 INPUT "move from which tower? "'K 
360 PRINT 

370 REM VOL I DATE INPUT 

380 IF K<1 THEN 35© 

390 IF K>3 THEN 350 

400 FOR I«l TO 10 

410 IF R<:K.I>=0 then 450 

420 TH=fi<K. I > 

430 RCK.I)«0 

440 GOTO 470 

450 NEXT I 

460 GOTO 350 

470 INPUT "to Where? ":K 

480 PRINT « ' 

430 REM VflLIDRTE INPUT 

500 IF K<1 THEN 470 

510 IF K>3 THEN 470 

520 FOR I-l TO 10 

530 IF R<:K.I)«0 THEN 570 

540 IF R<K.IXTH THEN 650 

550 R<K.I-n=TH 

560 GOTO 210 

570 NEXT I 

580 RCK.. 10>«TH 

590 GOTO 210 

600 PRINT "con9rat«.aations ! you. 

completed it in orily".? 
610 PRINT Nri.5 "moves" ' - ^ - 
620 STOP 

630 PRINT "betwee-n 1 and 10 Please"'' 
640 GOTO 150 
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650 PRINT "you. car.-'t do that!": « 
660 GOTO 470 
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Anagram 

This program will generate a series of anagrams to be deciphered. 
If your guess is correct a new anagram will be given. Type 
"QUIT" to give up and "STOP" to end the game. The Hst of 
words in the data statements in lines 520-580 can of course be 
changed to suit individual preferences. 

100 REM 

U0 REM RHRGRRM 
120 REM 

130 CRLL CLERR 

140 RANDOMIZE 

150 DIM WD$<200>..M$< 12) 

160 J=l 

170 REM RERD IN DRTR 

180 RERD WD$<J> 

190 IF WD$< J >=:"EHD" THEN 220 

200 J=J+1 

210 GOTO 180 

220 J=J-1 

230 REM SELECT NORD 

240 R=INT<RND*J+1 > 

250 R$=WD*<R> 

260 FOR I«=l TO LENCRSS) 

270 R«INT<:RND*12+1 ) 

280 IF M$<RK>"" THEN 270 

290 M$< R >=SEG$< R$ .. I .. n 

300 NEXT I 

310 FOR 1=1 TO 12 

320 IF M«<I)«"" THEN 340 

330 PRINT MS<:i); 

340 NEXT I 
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350 PRINT « « 

360 INPUT "your 9uess? "'G$ 

370 PRINT ' ' 

380 IF G$«fl* THEN 430 

390 IF G««"GUIT" THEN 500 

400 IF G$="STOP" THEN 600 

410 PRINT "try a9alti!"« » 

420 GOTO 360 

430 PRINT "correct!"'' 

440 NC«NC+1 

450 RS«e"" 

460 FOR I»=l TO 12 

470 M$<I)="" 

480 NEXT I 

490 GOTO 240 

500 PRINT n$« « 

510 GOTO 450 

520 DflTR POND * WOOD . MOUSE . T I GER . ANTELOPE . 

CRSSETTE . SEREND I P I T Y . COMPUTER . 

PROGRAMME * APPLE . WORD . TRR I N . HOUSE , APEX 
530 DATA DERELICT.. DIGIT. BUTTERFLY.. IDEA. 

I NDEPENDENT , IRN AGRAM . M I NOT AUR > DUNGEON . 

MINI ATURE . EN V I RONMENT ; MOTH . PARTY 
540 DATA OCEAN. ORBIT. OXYGEN. PASSPORT. 

PENNY . PEN I NSUL A . R ABB I T . PEAR . TOAD . 

POUND . GUES S . B I NARY . PUP I L . B AS I C . 

ANALOGUE 

550 DATA VIDEO. BUG. RECORD. MAZE. SOFTWARE. 
MODULAR . HEL I COPTER . TELEV I S I ON . 
TELEPHONE . CONTROL . MACH I NE . CABLE . 
ISSUE. LEAF 

560 DATA DICE. CHESS. PROGRESS.. SHARK. BOOK. 
ROBOT . PLAY .FILM. EVENT . GOOSE . FRESH . 



51 



JUH I OR CR I CKET . P I CTURE . HEAP HR VOC 
570 DRTfl EXPERT . LfiHGUflGE . TRAVEL . V I LLflGE . 

GENERflT I OH MUS I C CflLCULflTOR . ATLAS .. 

PAPER , CARD . CH I MNEY . T I CKET . CODE . B I RD 
580 DATA F I SH..CPLOUR. LAKE:. TYRE. CAKE.. ITCH. 

ROAD. SAIL.. SAFE.. PRICE. MIST. BREAD.. PIE . 

INSECT 
590 DATA END 

600 PRINT "you 9uessed " .« NC.' "corrertly . " ' : 
610 END 
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Morse Code 



This program generates random letters of morse code. An 
optional display and range of speeds is included. At maximum 
speed it will generate approx. sixty characters per minute, which 
is adequate for the Radio Amateurs morse test. 

The duration of each letter can be adjusted by changing the 
number in line 330. 

100 REM 

110 REM MORSE CODE 

120 REM 

130 CfiLL CLEAR 

140 RANDOMIZE 

150 DIM M$<26> 

160 REM READ IN DATA 

170 FOR J«l TO 26 

180 READ M$<J) 

190 NEXT J 

200 INPUT "SPEED CI TO 500)? " ' SP 
210 PRINT ' » « : 

220 IF <SP>500)+<SP<1>THEN 200 
230 INPUT "DISPLAY -CY/'N)? " 
240 PRINT : : « « 
250 IF Q$<>"Y" THEN 280 
260 DISP«1 
270 REM MAIN LOOP 
280 R« I NT< RND*26 )+ 1 
290 IF DISP«0 THEN 310 
300 PRINT CHR$<R+64>.5 " " .i 
310 FOR J«l TO LEN<:M56CR>> 
320 CALL SOUNDC 50* VAL< SEG$< M^-C R X. J 1 > ) 
300.2) 
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330 FOR DEL«1 TO £5 
340 NEXT DEL 
350 NEXT J 

360 FOR DEL=1 TO 540-SP 
370 NEXT DEL 
380 GOTO 280 

390 DRTR 13. 3131. 3U..1. 1131.331. 

nil. 11. 1333.313. 1311.33 
400 DFITfl 31.333.1331.3313.131.111.3.113. 

1113. 133.3113.3133.3311 



54 



Penguin 

It's no fun being a penguin nowadays. Six eggs to protect from 
marauding birds and only a laser cannon for company! 

See how you fare as a penguin. 

Move with the two keys S (left) and D (right). Fire your laser 
with the space bar. 

The game ends when your six eggs are destroyed. 
100 REM 

U0 REM PENGUIN 
120 REM 
130 RANDOMIZE 
140 CALL CLEAR 
150 GOTO 470 

160 REM MOVE SUBROUTINE 
170 CALL KEVXe.KY.S) 
180 IF S«0 THEN 200 
190 CALL HCHARC23.PC.32> 
200 IF KY083 THEN 220 
210 PC«PC-1 

220 IF KY068 THEN 240 
230 PC«PC+1 
240 IF PC<33 THEN 260 
250 PC=32 

260 IF PC>3 THEN 280 
270 PC»3 

280 CALL HCHAR<:23.PC. 130> 
290 IF KY032 THEN 450 
300 IF FRF=1 THEN 450 



310 CRLL SOUND< 100.-5.3) 
320 CRLL VCHRR<2.PC. 150.21 ) 
330 CRLL VCHRR<2.PC.32.21 ) 
340 FRF=1 

350 IF <PC«BC>*<BR<23>THEH 360 ELSE 450 

360 CRLL SOUND<400.-6.2> 

370 CRLL SCREEH<7> 

380 GOSUB 170 

390 SC«SC+100 

400 CRLL SCREEN<6> 

410 MCWE>=0 

420 GOSUB 1170 

430 GOSUB 170 

440 GOSUB 990 

450 RETURN 

460 REM DEFINE CHRRRCTERS 

470 CRLL CHRRa31. "00001 83C3C3C3C18" ) 

480 CRLL CHRR<130."1C383C666666663C"? 

430 CRLL CHRR< 150. "0808080808080808" > 

500 CRLL C0L0RC15.16.r; 

510 FOR J«l TO 6 

520 MCJ)«0 

530 NEXT J 

540 SC«0 

550 CRLL CLERR 

560 CRLL SCREEN<6) 

570 PC«15 

580 FOR Jal TO 6 

590 EC<J)=J*5 

600 CRLL HCHRR<24, J*5. 131 ) 

610 NEXT J 

620 EL»6 

630 GOSUB 1170 
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640 FOR J«l TO 6 

650 GOSUB 990 

660 GOSUB 170 

670 CRLL HCHflR<BR^BC.ST) 

680 IF BC<«ECCWE)THEN 719 

690 BC»BC-1 

700 CRLL CHflR<140."e082CEFC3e786E47 
710 IF BC>«EC<WE>THEN 740 
720 BC«BC+1 

730 CRLL CHRRC 140. "0141733F1C1E76E2 
740 IF BR>23 THEN 760 
750 BR«BR+1 

760 CALL GCHRRCBR.BC..ST) 
770 CRLL HCHRRCBR..BC.. 140> 
780 GOSUB 160 

790 IF <BC«EC<UE)>*<BR«24)THEN 800 

ELSE 850 
800 CALL SOUND<200.110.3) 
810 CRLL HCHflR<BR.BC..32) 
820 EL«EL-1 
830 GOSUB 1170 
840 GOTO 860 
850 GOTO 670 
860 NEXT J 

870 REM END OF GAME 

880 FOR J«400 TO 120 STEP -20 

890 CALL SOUND< 100. J.2) 

900 NEXT J 

910 CALL CLEAR 

920 IF SONS THEN 930 ELSE 940 
930 HS=SC 

940 PRINT "YOUR SCORE «";SC« ' ' ' 
950 PRINT "HIGH SCORE }HS' •"• 



960 INPUT "PLAY flGfllH? " = Q$ 

970 IF cseg$(:q*.i.i>="N">+<seg$c:g$.. 1. 

D="Yi")THEH 980 ELSE 510 
9S0 END 

990 BC=INT<RND*28)+3 

1000 BR= IHT<RHD*17>4-2 

1010 FRF«0 

1020 ST=32 

1030 WE=INKRND*6>+1 

1040 GOSUB 170 

1050 IF M<:WE>«1 THEN 1030 

1060 riCWE>=l 

1070 IF BC<16 THEN 1100 

1090 CRLL CHflRC 140. "8082CEFC387S6E47" > 

1090 GOTO 1U0 

1100 CRLL CHRRf. 140."0141733F1C1E76E2") 
1110 RETURN 

1120 FOR PR«1 TO LENCM$> 

1130 CRLL HCHRR< l.CL+PR.RSCCSEG$CM$.. 

PR.. 1 >)> 
1140 NEXT PR 
1150 RETURN 
1160 REM PRINT SCORE 
1170 M$="EGGS LEFT = "S<STR$CEL> 
1180 CL«3 
1190 GOSUB 1120 
1200 GOSUB 170 
1210 M$==" SCORE = "S<STR$<SC> 
1220 CL=18 
1230 GOSUB 1120 
1240 RETURN 
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Lunar Lander 



You are at the controls of a lunar landing module. Control its 
rate of descent by pressing the space bar, but watch your fuel 
consumption. 

100 REM 

110 REM LUNRR LRNDER 
120 REM 

130 CALL CLERR 

140 CALL SCREEN<15> 

150 REM DEFINE CHRRRCTERS 

160 CALL CHflRa49."FFFFFFFFFFFFFFFF"> 

170 CRLL CHflR<130."7EFFFFFFFF7E8181") 

180 CALL CHAR<140."3C3C1C1S181"> 

190 CALL C0L0R<13.5.. n 

200 CALL C0L0R<14.7.1> 

210 CALL COLORa.5.4. 1 > 

220 HT=2 

230 VELs»0 

940 FUs*50 

250 REM PLOT LUNAR SURFACE 
260 CALL HCHAR<24.3. 149.23> 
270 CALL HCHAR<23.3.149.5> 
280 CALL HCHAR<23..26. 149.6? 
290 CALL HCHARC22.27. 149..5> 
300 CALL HCHAR<22.3. 149..2> 
310 REM MAIN LOOP 
320 CALL HCHAR<:HT. 16.. 130> 
330 VEL=VEL+1.2 
340 M$="FUEL « "8<STR$<FU> 
350 FOR J«l TO LENCM*) 
360 CH« ASC< SEG$< M$ .. J . 1 ) > 



370 CALL HCHflR<l,ll+J.CH> 

380 NEXT J 

390 IF FIJ«e THEN 510 

400 REM IGNITE? 

410 CALL KEY<:0.K..S> 

420 IF K032 THEN 510 

430 CRLL SOUNDC 100..-5..2> 

440 CRLL GCHRR<HT+1, 16..CH> 

450 CALL HCHflRCHT+1, 16, 140> 

460 FU*=FU-10 

470 IF FU>0 THEN 490 

480 FU«0 

490 VEL«VEL-2 

500 CALL HCHARCHT+1, 16.CH) 

510 CALL HCHARCHT.16..32) 

520 HT=INTCHT+VEL) 

530 IF HT>«23 THEN 560 

540 GOTO 320 

550 REM CONTACT 

560 IF VEL<2-1 THEN 610 

570 CALL SOUNDC300.-5.2) 

580 CALL HCHAR<24. 16. 131 > 

590 PRINT •• " YOU CRASHED! " ' « 

600 GOTO 640 

610 CRLL SOUND<200.320.2> 

520 CALL HCHRRf.23.16a30> 

630 PRINT A PERFECT LANDING!" 

640 FOR DEL«1 TO 1000 

650 NEXT DEL 

660 GOTO 130 
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Space Zap 



A game for 2 players. Player one moves his ship using keys Q 
and A, and fires with key X. Player two moves with keys O and 
L and fires with M. 

The aim is to destroy the opposing players ship. Nine hits signal 
the destruction of a ship. Fast fingers are needed since the normal 
repeat key facility of the TI 99 is not used! 

100 REM 

110 REM SPACE ZAP 

120 REM 

130 GOTO 720 

140 CALL SOUNDC: 100.-5/2) 

1S0 CALL HCHAPXVR. 01+1,150.26) 

160 IF R10R2 THEN 180 

170 GOTO 550 

180 CALL HCHAR<VR,C1+1,32.26) 

190 CALL KEYC0..K.S) 

200 IF S=-l THEN 360 

210 IF K088 THEN 250 

220 VR«R1 

230 HIT«1 

240 GOSUB 140 

250 IF K081 THEN 270 

260 R1«=R1-1 

270 IF K065 THEN 290 

280 R1«R1+1 

290 IF R1«R10 THEN 360 

300 IF <R1>2)*<R1<24>THEN 330 

310 R1«R10 

320 GOTO 360 



61 



330 CALL VCHRRCR10.C1..32) 

340 CALL VCHRR<R1,C1. 130> 

350 R10«R1 

360 RETURN 

370 CALL KEYC0.K.S> 

380 IF S=-l THEN 540 

390 IF K077 THEN 430 

400 VR«R2 

410 HIT=2 

420 GOSUB 140 

430 IF K079 THEN 450 

440 R2=R2-1 

450 IF K076 THEN 470 

460 R2=R2+1 

470 IF R2=R20 THEN 540 

480 IF CR2>2>*<:R2<24)THEN 510 

490 R2=R20 

500 GOTO 540 

510 CALL VCHAR<:R20.C2.32> 
520 CALL VCHARCR2..C2.. 140> 
530 R20«R2 
540 RETURN 
550 REM 

560 CALL SOUNDS 300. -5.. 2 > 
570 IF HIT«1 then 630 
580 SC2— SC2+1 

590 CALL HCHAR<1.22.RSC*r.STR$<SC2>>> 
600 IF SC2=9 THEN 680 
610 HIT=0 
620 GOTO 670 
630 SC1=SC1+1 

640 CALL HCH AR<: 1.11.. ASCC STRSC SC 1 > > > 
650 IF SCI =9 THEN 680 
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660 HIT«0 
670 GOTO 180 

680 Cf=^LL HCHflR<VR.CX+1.32.26) 
690 FOR DEL*! TO 1500 
700 NEXT DEL 
710 END 

720 GRLL CLERR 

730 CRLL SCREENS 15) 

740 R10«12 

750 R20«12 

760 Rl«12 

770 R2«12 

780 Cl«4 

730 C2=31 

800 CRLL CHRRU30."F0F8FCFEFEFCF8F0"> 
810 CALL CHRRU40."0F1F3F7F7F3F1F0F"> 
820 CRLL CHRR<:i50."000000FFFF") 
830 CRLL COLORS 15. 16.1) 
840 CRLL VCHRRCR 1.01.130) 
850 CRLL VCHRRCR2.C2. 140) 
860 GOSUB 190 
870 GOSUB 370 
880 GOTO 860 
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Kaleidoscope 

This program plots a series of coloured blocks against a changing 
background. 

Although only short, it provides a fascinatingly hypnotic display 
of the colour range of the TI 99. 

100 REM 

U0 REM KRLEIDOSCOPE 
120 REM 

130 CRLL CLEAR 

140 CALL SCREEN<15> 

150 FOR J=32 TO 152 STEP 8 

160 CRLL CHRR<J."FFFFFFFFFFFFFFFF"> 

170 CRLL C0L0R<CJ/S>-3.INKRND*16+1>.. 1) 

180 CALL HCHRR<INT<RND*24+1>.INT<RND*29 

190 NEXT J 
200 GOTO 150 
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Chase 



This game has you being chased around the screen by a 
chomping monster, to the accompaniment of some colourful 
sounds! 

Guide your man around the screen using the arrow keys 
(E S D X), but keep your fingers moving fast to survive! 

A point of interest to note is the redefining of characters in lines 
720 to 780 to give an impression of movement to the two figures. 

Masochists might like to try inserting an extra line: 
735 GOSUB510 

100 REM 

110 REM CHRSE 
120 REM 

130 CALL CLEAR 
140 CALL SCREEN<8> 

150 CALL CHAR<130.. "3844386CAA3844C6") 

160 CALL C0L0R<13.7.1) 

170 CALL CHARC140."387CBAFEe2FE3838") 

180 CALL COLOR< 14.3.1) 

130 R«23 

200 R0»23 

210 C«16 

220 C0«16 

230 CALL HCHAR<R.C. 130) 

240 MR»2 

250 MR0«2 

260 MC«16 

270 MC0«16 

280 GOTO 700 
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290 REM MOVE MAN 
300 CRLL KEY<0.K/S) 
310 IF K069 THEN 330 
320 R«R-1 

330 IF K089 THEN 350 
340 R=R+1 

350 IF K068 THEN 370 
360 C»C+1 

370 IF K093 THEN 390 
380 C«C-1 

390 IF < R«RO >*< C=CO >THEN 490 

400 IF <R<2>+<R>23>+<:C>31>+<C<3>THEN 410 

ELSE 440 
410 R=RO 
420 C«CO 
430 GOTO 490 

440 CRLL SOUND<100.330.2> 
450 CRLL HCHflR<R0..C0,.32) 
460 CRLL HCHRR<R.C. 130) 
470 RO=R 
480 CO=C 
490 RETURN 

500 REM MOVE MONSTER 

510 IF MR>«R THEN 530 

520 MR=MR+1 

530 IF MR<«R THEN 550 

540 MR=MR-1 

550 IF MC>«C THEN 570 

560 MC=MC+1 

570 IF MC<a!C THEN 590 

580 MC=MC— 1 

590 CRLL "sounds 1 00 . 220 . 2 > 
600 CALL HCHRR<:MR0W1C0.32) 
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610 CALL HCHflRCriR,MC.l40> 
620 IF < riR«R >*< MC«C )THEN 660 
630 MRO=MR 
640 MCO»MC 
650 RETURN 

660 CALL SOUND< 200. 200.2) 

670 PRINT " CAUGHT YOU! " : : « « 

680 END 

690 REM MAIN LOOP 
700 GOSUB 300 
710 GOSUB 510 

720 CALL CHAR<130."3844386CAA38286C"> 
730 GOSUB 300 

740 CALL CHAR<130."3844386CAA3844C6") 
750 CALL CHAR<140."3S7CBAFEFEFE3838") 
760 GOSUB 300 
770 GOSUB 510 

780 CALL CHAR<140."387CBAFE82FE3838"> 
730 GOTO 700 
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Digital Clocic 



This program displays a working digital clock in the centre of the 
screen. 

If the alarm function is not required, then enter any number 
greater than 23 for the hour when setting it. 

The speed of the clock can be adjusted via the value in line 560. 

Xm REM 

110 REM DIGITRL CLOCK 
120 REM 

130 CRLL CLEAR 

140 PRINT "PLEASE ENTER THE CORRECT 
TINE" 

150 INPUT "HOUR? ":HR 
160 INPUT "MINUTES? "'MIN 
170 PRINT = : "SET ALARM" 
180 INPUT "HOUR? "»AH 
190 INPUT "MINUTE? "'AN 
200 CALL CLEAR 
210 CALL SCREENS 16) 

220 CALL CHAR< 130. "FRFFFFFFFFFFFFFF" > 

230 CALL CQLORC 13.7. 1 > 

240 REM DRAW BOX 

250 CALL HCHARU0. 12. 130.9 > 

260 CALL HCHAR<14.12.130.S> 

270 CALL VCHAR< U . 12. 130. 3 > 

280 CALL VCH AR< 1 1 . 20 . 1 30 . 3 > 

290 REM CALCULATE TIME 

300 IF MIN<«59 THEN 330 

310 HR=HR+1 
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320 MIH«0 

330 IF HR<=23 THEN 350 
340 HR«0 

359 IF <HR<10>*<riIN<i0>THEN 360 ELSE 380 

360 T£&=" "a:STR$< HR "a."0"ScSTR$< MIH ) 
370 GOTO 460 

380 IF MIN>9 THEN 410 

390 T$« " I5<STR$< HR )S< " ' " 3. " " &:STR$< M I N " 

400 GOTO 460 

410 IF HR>3 THEN 440 

420 T$« " " !5,STR$'C HR >& " = " g<STR$< M I N > 

430 GOTO 460 

440 T$« " " S<STR*< HR >& " = " S<STR£P< M I N > 

450 REM PRINT TIME 

460 FOR J=l TO LENCT*) 

470 CH=flSC<: SEG*< T$ .. J . 1 > > 

480 CRLL HCHRRC 12. 12+J..CH.? 

490 NEXT J 

500 REM DELAY 

510 FOR F«l TO 60 

520 CALL HCHflRC 12.. 16..32) 

530 FOR D^l TO 50 

540 NEXT D 

550 CALL HCHRRU2.. i6..58) 
560 FOR D-1 TO 241 
570 NEXT D 

580 IF <HR«AH>*';MIN=flM>TH£N 590 ELSE 600 
590 CALL SOUND<100..330.. 1) 
600 NEXT F 
610 MIN«MIN+1 
620 GOTO 300 
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Binary to Hex 
Conversion 

This program inputs a sequence of binary digits and converts 
them to a hexadecimal number. Programmers will appreciate its 
use in character definition on the TI 99. 

100 REM 

110 REM BINARY TO HEXflDECIMflL 
120 REM CONVERSION 
130 REM 

140 CALL CLEAR 

150 PRINT "INPUT BINARY AS A STRING OF 

I'S AND ZERO'S. " • = 
160 PRINT "E.G. 100110": « 
170 PRINT "INPUT S TO STOP" « • 
180 INPUT "BINARY? "'B$ 
190 IF B$="S" THEN 420 

200 IF LEN<B$V4=INT<LEN<B$>/4)THEN 230 
210 B$="0"55«B$ 
220 GOTO 200 

230 FOR J«4 TO LEN<B*>STEP 4 

240 A$=SEG$< B$ , LEN< B$ >- J+ 1 . 4 > 

250 N=l 

260 HEX-0 

270 FOR Ks=l TO 4 

280 H«»SEG$< A$/ 5-K. 1 > 

290 IF H$="0" THEN 310 

300 HEX=HEX+N 

310 N=N*2 

320 NEXT K 

330 IF HEX<.10 THEN 369 
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340 HE*«CHR*< HEX+55 > 
350 GOTO 370 
360 HE$«STR$< HEX ) 
370 HV$«HE$e<HV$ 
380 NEXT J 

390 PRINT "HEXRDECIMRL « "jHV$«« 
400 HV*«"" 
410 GOTO 180 
420 END 



Hex to Decimal 
Conversion 

Inputs a valid hexadecimal number and transforms it to decimal. 
This program will be of particular interest to those studying 
machine code. 

100 REM 

110 REM HEXRDECIMflL TO C'ECIMRL 
120 REM CONVERSION 
130 REM 

140 CRLL CLEBR 

150 PRINT "INPUT HEXRDECIMRL NUMBERS RSR 

SINGLE STRING.."' ' 
160 PRINT "E.G. 154ER" ' • 
170 PRINT "INPUT S TO STOP"' « 
180 INPUT "HEXRDECIMflL? "'H$ 
190 IF H$a"S" THEN 330 
200 N=l 
210 DEC«0 

220 FOR J=l TO LEN<H$) 

230 fl$«S£G$<: H« . LEN<: H$ )- J+ 1 , 1 > 

240 IF RSCC?=I«>>58 THEN 270 

250 HT«VRL<R$> 

260 GOTO 280 

270 HT«flSC< R$ )-55 

280 DEC«DEC+N*HT 

290 N=N#16 

300 NEXT J 

310 PRINT "DECIMRL «"jDEC" 
320 GOTO 180 
330 END 
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Binary to Decimal 
Conversion 

This program will convert a sequence of binary digits (O's and I's) 
into a decimal number. The length of the binary number is 
limited only by the maximum length of the input statement on 
the TI 99! 

100 REM 

U0 REM BINRRY TO DECIMAL 
120 REM CONVERSION 
130 REM 

140 CRLL CLEAR 

150 CALL SCREENS 16) 

160 PRINT "INPUT YOUR BINRRY NUMBERS ASA 

STRING OF I'S & ZERO-'S."'' 
170 PRINT "E.G- 100110"': 
180 PRINT "INPUT S TO STOP" : « 
190 REM MAIN LOOP 
200 INPUT "BINARY? "«B« 
210 REM TEST FOR END 
220 IF B*="S" THEN 340 
230 N«l 
240 DECa0 

250 FOR J=l TO LENCB$> 

260 fl$«SEG$< B«. LENC B* )-J+l , 1 > 

270 IF R*a"0" THEN 290 

280 DEC«DEC+N 

290 N«N*2 

300 NEXT J 

310 REM PRINT DECIMAL 
320 PRINT "DECIMAL «"jDEC" 
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330 GOTO 200 
340 END 
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Arithmetic 

An arithmetic test for all ages. 

The inclusion of a maximum number makes this program suitable 
for use at all levels. 

It will generate an endless sequence of addition and subtraction 
sums, testing for the correct answer in each case. 

To stop the program, press the function and clear keys 
simultaneously. 

100 REM 

110 REM RRITHMETIC 

120 REM 

130 RRNDOMIZE 

140 CRLL CLERR 

150 CRLL SCREEN<16> 

169 CRLL CHRRU30. "00FFFF" > 

170 PRINT "RRITHMETIC TEST" « « : ' 

180 INPUT "ENTER MRXIMIJM NUMBER "'MN 

190 IF MN<1 THEN 180 

200 C=14 

210 CRLL CLERR 

220 REM SELECT SIGN 

230 R*=INKRNC'*2) 

240 IF R«l THEN 270 

250 R=-l 

260 REM SELECT NUMBERS 
270 N1=INT<RND*MN>+1 
2S0 N2aINT<RND*MN> 
290 IF NKN2 THEN 270 
300 REM PRINT NUMBERS 
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310 ri$=STR$<Nl> 
320 P=12 
330 GOSUB 780 
340 M$aSTR$CN2> 

350 IF LEN<ri$ >=LEN<STR$<Nl >)THEM 380 

360 M$«" "^m 

370 GOTO 350 

380 P=13 

390 GOSUB 780 

400 IF R<1 THEN 430 

410 CALL HCHflR< 12.C+LEN<STR$CH1 >>+l,43> 
420 GOTO 440 

430 CALL HCHRRC 12. C+LEN< STR$<: Nl > >+l .. 45 > 
440 CfiLL HCHRRU4.C+1, 130.LEN<r1$>> 
450 REM INPUT flNSUER 
460 FOR J«l TO LEN<STR$<N1+N2*R>> 
470 CALL KEYCO.K.S) 
480 IF 8=0 THEN 470 
490 CALL SOUNDS 50. 290. 4) 
500 IF <:K<48>+<K>57)THEN 470 
5 1 CALL HCH AR< 1 5 . C+LENC STR$< N 1 > >+ 1 - J . K > 
520 AN$=CHR$< K )S«AN$ 
530 NEXT J 

540 IF VAURN$)s=Nl+N2*R THEN 680 
550 REM WRONG ANSWER 
560 M$="TRY AGAIN!" 
570 0F=2 
580 P=22 

590 CALL SOUND-: 150. 120.. 2 > 

609 GOSUB 780 

610 OF«0 

620 GOSUB 830 

630 CALL HCHARX22.C-4.32. 13> 
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640 CnLL HCHRRX 15.C-1.32^ 14) 

650 flN$«"" 

660 GOTO 460 

670 REM RIGHT BNSWER 

680 M$="CORRECT! 

690 0F=2 

700 P«22 

710 CALL SOUNDC150..330.2) 

720 GOSUB 780 

730 OF=0 

740 GOSUB 830 

750 CALL CLEAR 

760 RN$«"" 

770 GOTO 230 

780 FOR Hs=l TO LEH<r-1$) 

730 CH^flSCC SEG$< m . N . 1 > > 

800 CALL HCHAR<P..C+h4-0F..CH> 

810 NEXT N 

820 RETURN 

830 FOR DE«1 TO 1000 
840 NEXT DE 
850 RETURN 



Spelling Test 



This program prints out a list of three words of different spelling, 
only one of which is correct. If the correct spelling is entered, a 
new word is chosen. 

The list of words in the data statements can, of course, be varied 
to suit any age. A variation would be to make none of the 
spellings correct! 



130 CALL CLERR 

140 CRLL SCREENCQ) 

156 RRHDOniZE 

160 Din WD$'r20.3> 

170 DEF RX=INT<RHD*3>+1 

180 PRINT "SPELLING TEST": = •■ 

190 REM RERD IN DRTR 

£00 FOR J=l TO 20 

210 FOR K=l TO 3 

220 RERD WD$<J..K> 

230 NEXT K 

240 NEXT J 

250 REM CHOOSE WORD ORDER 
260 R1«RX 
270 R2=RX 

280 IF R1=R2 THEN 270 
230 R3=RX 

300 IF CR3=R1 >+c:r3=:R2>tH£N 290 
3 1 RD= I NTC RND*20 >+ 1 
320 IF RD=RWD THEN 310 




REM 
REM 
REM 



SPELLING TEST 
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330 RWD=RD 

340 PRINT "1. "jWD$<RWD,R1> 

350 PRINT "2. ".!WD*<RWD..R2> 

360 PRINT "3. ".jUD$CRWD.R3>' ' • « 

370 PRINT "WHJ=IT IS THE CORRECT SPELLING" j 

360 INPUT RN$ 

390 PRINT « ' 

400 IF aN$«WD*<:RWD. 1 >THEH 430 

410 PRINT "TRY l=lGflIN!"=' 

420 GOTO 380 

430 PRINT "CORRECT! "« = 

440 GOTO 260 

450 DflTfl CARROT^ CflROT,CRROTT 
460 DflTfl TELEVISION. TELIVISION.TELEV I SON 
470 DflTfl COMPUTER ..COriPlJTOR..CONPUTflR 
480 DflTfl VEHICLE..VEICLE.-VEERCLE 
490 DflTfl RflNDOM;RflNDEM.RflNDflr» 
500 DflTfl FEBRUARY.. FEBUflRY.FEBURflRY 
510 DflTfl YELLOW. YELOW..YELLEW 
520 DflTfl SENTENCE ..SENTflNCE..SENTENSE 
530 DflTfl SUCCESS ..SUCESS..SUCCES 
540 DflTfl TOMORROW. TOr'IMORON..TOMOROi.'i 
550 DflTfl ENV I RONMENT . ENV I ROMENT . ENV I RflMENT 
560 DflTfl BEflUT I FUL . BUERT I FUL BERUT I FULL 
570 DflTfl IMPOSSIBLE.. IMPOSIBLE.. INPOSSIBLE 
580 DflTfl ILLEGIBLE.. ILEGIBLE.. ILLEGRBLE 
590 DflTR AMEND. flMMEND.. EMEND 
600 DATA ORCHESTRA. ORKESTRA.ORCESTRA 
r510 DflTfl INTRIGUE. INTRIGE. INTREflGUE 
520 DflT A PNEUMRT I C .. NEWMRT I C . PNUMRT I C 
630 DATA WEDNESDAY. WEN3DRY.WENDSDRY 
640 DATA APPL I CAT I ON . APL I CRT I ON . 
APPLICCATION 
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Multiplication Tables 

Here's a simple program to test your knowledge of multiplication. 
The range of numbers is controlled by a simple input statement at 
the beginning, which makes the program suitable for a range of 
ages. 

100 REM 

110 REM MULTIPLICATION TRBLES 
120 REM 

130 CRLL CLEAR 

140 randomize 

150 input "maximum number? " : max 
160 ni=int<:rnd*mrx)+i 

1 70 N2= I NTf. RND*M AX >+ 1 

1S0 PRINT :'"WHAT IS" J Nl J "TIMES" .s N2j 

190 INPUT ANS 

200 IF ANS=N1*N2 THEN 230 

210 PRINT «'"TRY AGAIN!"'' 

220 GOTO 190 

230 PRINT ' « "CORRECT! • : 

240 INPUT "AGAIN? "'Q* 

250 IF G*«"N" THEN 270 

260 GOTO 160 

270 END 
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Report 



This program produces a list of useful sounding phrases for 
incorporation into reports or speeches. Readers might like to 
insert their own words into the data statements in lines 240-300! 

A similar structure is used in many of the "poetry" generating 
programs around. Just insert your own phrases instead of the 
single words. 

im REM 

110 REM REPORT 

120 REM 

130 RRND0MI2E 

140 CRLL CLERR 

150 REM REBD IH DRTfl 

160 FOR .J«l TO 7 

170 RERD R$< J).B$<: J>.C$< J> 

180 NEXT J 

130 INPUT "HOW MRNY PHRR3ES? " • PH 

200 PRINT ' ' ^ 

210 REM PRINT PH PHRRSES 

220 FOR J«l TO PH 

230 PRINT R$<: INT<RND*7>+1 >.5 " "} 

240 PRINT B$< INT.:RND*7 >+1 X! " "} 

250 PRINT C*aNT<RND*7)+l>: : : : 

260 NEXT J 

270 DRTfl ON-GO I NG. HUMANIST I ENVIRONMENT 

280 DRTfl MODULAR. INTEGRATED. S I TURT I ON 

290 DRTfl DIFFERENTIflTED..MOTIVRTIONRL. 
PROCESS 

300 DRTR MINORITY. CREATIVE. EXPERIMENT 

310 DATA OPEN-ENDED. VERTICAL. TECHNIQUE 
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329 DnTR INDIVIDURL/EVRLUflTIVE.. RESOURCE 

330 DRTR HOMO JENOUS . OB JECT I VE FRC I L ITY 
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Planet Lander 



This is a computer simulation of a spacecraft landing on any one 
of six planets. Purists will no doubt be aware that the moon is 
not a planet! 

Full instructions are included in the listing, so are not reported 
here. 

100 REM 

110 REM PLRHET LRHDER 
120 REM 

130 CRLL CLEAR 

140 CRLL SCREENae) 

150 REM INITIRLISE VRRIRBLES 

160 T^Q 

170 HT«500 

180 FRF»0 

190 V«20 

200 DEF TRN<X)«INTCX*10 V10 

210 REM PRINT INSTRUCTIONS 

220 PRINT "PLRNET LRNDER" » ' 

230 PRINT "this is a computer simulation 

of a space craft 1 arid 1*09 on any one 

of six P lanets. " ' ' 
240 PRINT "use lower case letters for 

your reP ly . " • « 
250 INPUT "name your Planet < mercury/ 

venus/earth/^the moon/^mars/^ 

Pluto > ":Q$ 
260 PRINT • ' 

270 REM TEST FOR PLRNET 
280 IF Q$<>" mercury" THEN 320 
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290 G=3. 76 
300 FR«500 
310 GOTO 520 

320 IF Q$<>"vems" THEN 360 
330 G=8.77 
340 FRsSiSO 
350 GOTO 520 

360 IF G$<>" earth" THEN 400 
370 G«9,81 
380 FRS1000 
390 GOTO 520 

400 IF Q$<>"the moon" THEN 440 
410 G=1.62 
420 FR=:250 
430 GOTO 520 

440 IF Q$<>"m3.rs" THEN 480 
450 G=3.8 
460 FR=500 
470 GOTO 520 

480 IF Q$<>" Pluto" THEN 250 
490 GS4 
500 FR=500 

510 REM MORE INSTRUCTIONS 

520 PRINT "you are " .»HT.j "metres" .« "above 

the surface of " .« Q$.5 " , " : « 
530 PRINT "a our onboard ZX81 will not 

load your auto- lander Pro9ram^ so aou 

will have to InPut Instructions 

direct" .« 

540 PRINT "to the texas master computer 

by hand. " ' « 
550 PRINT "to further compound your 

problems you are desPeratelyshort of 

fuel ! " ' ' 
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S60 PRINT "whe'n a <luestion mrk appear 
type X eri9i-ne bur-n re^iuired ai"id 
press enter. " « ' 

570 PRINT "time height velocity fuel"' 

580 PRINT T.5TRB<6>JTRN<:HT>^TPlBa4>.j 
TRN< V •;« .« TRB<: 22 > J I NT< FR > ' « 

590 IF FRFOl THEN 620 

609 BR=0 

610 GOTO 720 
620 INPUT BR 
630 PRINT « ' 

640 IF <BR>100H<eR<0)THEN 620 
650 IF BR<FR THEN 710 
660 BR«FR 
670 FRFal 

680 PRINT "out of fuel": ' 

690 FR«0 

700 GOTO 720 

710 FR«FR-BR 

720 REM NEW HEIGHT 

730 HT=HT~V 

740 IF HT<»0 THEN 790 

750 VaV+G-BR/5 

760 T»T+1 

770 GOTO 570 

780 REM LANDED 

790 IF V<1 THEN 840 

800 IF V<4 THEN 870 

810 CfiLL SOUND< 1000.-6..2> 

820 PRINT "c rash !!!"•: 

830 GOTO 890 

840 CALL SOUNDC250.262.2) 

850 PRINT "a Perfect la-ndiri9 ! " « ' 

860 GOTO 890 



870 CRLL SOUNDC 1000. -6.2 > 

880 PRINT "lamded with craft dama9e 

await rescue ! " — 
890 INPUT "a-nother 9arrie?"5Q$ 
900 IF CSEG$CQ«.l.l>="a">+<SEG$<Q$.l 

="Y">THEN 130 
910 END 
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Entrapment 

A game of strategy for 2 players. 

Each player controls a different coloured snake which winds its 
way around the screen. 

Player one uses keys E S D X and player two uses IJKM to 
direct the movement of their snake. 

A player loses if his snake hits any obstacle, including its own 
body, or tries to leave the screen! 

100 REM 

110 REM EHTRRPMENT 

120 REM 

130 GOTO 640 

140 REM PLAYER ONE 

150 CALL KEY<:0.KY,S> 

160 IF CKY«69>+<KY=e8)+<KY«=83)+<KY«68) 

THEN 170 ELSE 180 
170 K1«KY 

180 IF <Kl<>69H<Rl<al)THEN 200 
190 R1=R1--1 

200 IF <K1<>88)+<:R1>«24>THEN 220 
210 R1=R1+1 

220 IF <r.Kl<>83)+<Cl<«3>THEN 240 
230 Cl^Cl-1 

240 IF <K1<>68>+'CC1>«32>THEH 260 
230 C1«C1+1 

260 CALL GCHAR<R1..C1..X> 
270 IF X032 THEN 490 
280 CALL SOUND< 100,290..2) 
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£90 CALL HCHflR< R 1 . C 1 1 30 > 
300 RETURN 
310 REM PLAYER TWO 
320 CALL KEY<0..KY.S> 

330 IF < KY«73 >+< KY=77 KY=74 >+< KY=75 > 

THEN 340 ELSE 350 
340 K2=KY 

350 IF <K2<>73>+<R2<«nTHEH 370 
360 R2*R2-1 

370 IF <:K2<>77)+c:R2>«24>THEN 390 
330 R2=R2+1 

390 IF CK2<>74HCC2<«3>THEN 410 
400 C2='C2-1 

410 IF <K2<>75>+<C2>«32>THEN 430 
420 C2=C2+1 

430 CALL GCHAR<R2..C2.X> 
440 IF X032 THEN 560 
430 CALL SOUND< 100.390.2) 
460 CALL HCHAR<R2.C2.. 140) 
470 RETURN 

480 REM END OF GAME 

490 CALL SOUND<300.-5..2) 

500 FOR J«l TO 20 

510 CALL HCHARCR1.C1.32) 

520 CALL SOUNDC50.220.2) 

530 CALL HCHAR<R1.C1. 130) 

540 NEXT J 

550 GOTO 100 

560 CALL SOUNDC300.-6.2) 

570 FOR J=l TO 20 

580 CALL HCHAR-CR2..C2.32) 

590 CALL SOUND<50.280..2> 

600 CALL HCHAR<R2.C2. 140? 
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610 NEXT J 

620 GOTO 100 

630 REM MAIN PROGRAM 

640 CALL CLEAR 

650 CALL SCREEN<8> 

660 CALL CHAR«: 130.. "183C7EFFFF7E3C18" 
670 CALL CHAR-r. 140. "183C7EFFFF7E3C18" 
6S0 CALL COLOR-: 13.7. 1 
690 CALL COLOPX 14.6.. 1 ) 
700 Rl«2 
710 Kl«68 
720 Cl«4 
730 R2-23 
740 K2«74 
750 C2«31 
760 GOSUB 150 
770 GOSUB 320 
7S0 GOTO 760 



Print At 



This subroutine simulates the DISPLAY AT or PRINT AT 
statement which finds extensive use in other dialects of, or in 
extended, Basic. 

To use this, the print line is placed in a variable P$ and the 
screen line and column number in X and Y. It can then be 
accessed as a normal subroutine. 

100 REM 

110 REM PRINT RT X..Y,M$ 
120 REM ROUTINE 
130 REM 

140 FOR J«l TO LEN<P$> 
150 IF Y<32 THEN 180 
160 Y«3 
170 X»X+1 

180 IF X<24 THEN 200 
190 X=l 

200 CHs=flSC< SEG$< P« .. J . 1 ) > 
210 CALL HCHRRCX.Y.CH) 
220 Y«=Y+1 
230 NEXT J 
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Cheque Book 

A cheque book balancer to help you keep track of your account. 
To use, enter your last known balance followed by a list of 
cheques written out and payments in. Each list is ended with the 
input of a zero. The computer will prompt you for each list. 

Xm REM 

110 REM CHEQUE BOOK 
120 REM 

130 CRLL CLERR 

140 INPUT "YOUR LRST BRLRNCE? "'BRL 

150 PRINT « « » « "CHEQUES SINCE' " « « 

160 INPUT CHQ 

170 IF CHQa0 THEN 200 

180 BRL»BRL-CHQ 

190 GOTO 160 

200 PRINT ' ' "PRYMENTS IN« " • « 

210 INPUT PRY 

220 IF PRY«0 THEN 250 

230 eRL«BRL+PRY 

240 GOTO 210 

250 PRINT * : * : "YOUR CURRENT BRLRNCE 

IS" J BRL 
260 END 
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Metric Converter 



This is a useful demonstration program to convert metric length 
or weight to Imperial. Further routines could be easily added to 
cover different conversions. 

100 REM 

110 REM METRIC CONVERTER 
120 REM 

130 CALL CLEAR 

140 PRINT "1. KILOGRAMS TO POUNDS"'' 

150 PRINT "2. METRES TO FEET 8« INS"'''' 

160 INPUT "INPUT 1 OR 2 TO SELECT "'KY 

170 IF <KY'='l )+<KY'=2)THEN 180 ELSE 160 

180 ON KY GOTO 200.320 

190 REM KILOS TO LBS 

200 PRINT ' ' ' ' "INPUT METRIC " ' ' 

210 INPUT KGS 

220 IF KGS'a0 THEN 430 

230 02S'=KGS*2. 2046*16 

240 IF INT<02SX16 THEN 270 

250 PDS'sINT<:0ZS/'16) 

260 02S«02S-PDS*16 

270 PRINT PDSi"LBS"J02Sj"02" 

280 PDSs*© 

290 OZS«0 

300 GOTO 210 

310 REM METRES TO FT H< INS 

320 PRINT ' ' "INPUT METRIC' " ' ' 

330 INPUT MTS 

340 IF MTS«0 THEN 430 

350 INS«MTS*39.37 

360 IF INTCINSX12 THEN 390 
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370 FT«IHT< IHS/12> 

380 IWS«INS-Fr*12 

390 PRINT FTj "FT"J INSj "IN" ' ' 

400 FTs=0 

410 INS=0 

420 GOTO 330 

430 END 



Alien Attack 



You are being attacked by a swarm of aliens coming at you from 
the bottom of the screen. 

Guide your space craft using the keys S and D. Fire with the 
space bar. 

The smaller green aliens score 10 points and the larger red score 
25 points. 

The game ends when you collide with an alien or allow 100 to 
escape. 

Xm REM 

U0 REM ALIEN RTTflCK 

120 REM 

130 GOSUB 380 

140 GOTO 490 

150 CALL GCHflR<LV.S.X) 

160 IF <X«130)+<X.»140)THEN 670 

170 CALL HCHflR<:LV.Sa52> 

180 FOR J»l TO 8 

190 IF HIT«1 THEN 350 

200 CALL GCHARCLV+J.S.X) 

210 IF XO130 THEN 290 

220 SC«SC+10 

230 NG«NG-1 

240 HIT=1 

250 CALL SOUNDS 300. -5.. 3 > 
260 CALL HCHARCLV+J.S, 141 ) 
270 CALL HCHAR«:LV+J.S.32> 
280 GOTO 320 
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290 IF XO140 THEN 329 
300 SC«SC+25 
310 GOTO 230 

320 CRLL VCHflRCLV+J..S. 139> 

330 CALL SOUND<50.-6..4> 

340 CRLL VCHRRC.LV+J.S.32> 

350 NEXT J 

360 HIT«0 

370 RETURN 

380 CRLL SCREEN-: 16) 

390 RRNDOMIZE 

400 REM DEFINE CHRRRCTERS 

410 CRLL CHRR(130,"38D64438EE9292") 

420 CRLL CHRRC 139. "0010101010101000" > 

430 CRLL CHRR< 140. "C3FFDBFFC3BD1S66" > 

440 CRLL CHRR<152^"FFFFFFFF7E7E3C3C"> 

450 CRLL COLOR< 13.3.1) 

460 CRLL C0L0RC14.7.1) 

470 CRLL C0L0RC16.6.1) 

480 RETURN 

490 S=16 

500 LVa6 

510 CRLL CLERR 

520 REM PLRCE RLIEN 

530 IF RND>.5 THEN 600 

540 NG«NGH-1 

550 IF NG>U0 THEN 870 
560 IF RND>.90 THEN 570 ELSE 590 
570 CRLL HCHRR<:24.INT<RND*31>+ 1.140) 
580 GOTO 600 

590 CRLL HCHflR<24.INTCRND*31)+1.130> 
600 PRINT « ' 

610 CRLL HCHRR<LV-2.S.32> 



620 REM MOVE OR FIRE 
630 CALL KEYCO^K.ST? 
640 IF ST»0 THEN 740 
650 IF K032 THEN 670 
660 GOSUB 150 
670 IF K068 THEN 710 
680 Ss=S+l 

690 IF S>31 THEN 720 
700 GOTO 740 
710 IF K083 THEN 740 
720 SaS-1 

730 IF SO THEN 680 

740 CRLL GCHflR<LV.S.X> 

750 IF <X«130)+<X«140)THEN 790 

760 CRLL HCHRR<LV.S.152> 

770 GOTO 530 

780 REM HIT 

790 CRLL SCREEN<7> 

800 CALL SOUND<500.-5.2) 

810 CRLL HCHRRCLV,S.141) 

820 CRLL C0L0R<16.7.1> 

830 FOR DEL«1 TO 30 

840 NEXT DEL 

850 CRLL HCHflR<LV,S. 152> 

860 CRLL SCREEN<16) 

870 FOR J=660 TO 120 STEP -20 

880 CRLL SOUND<100.J.2> 

890 NEXT J 

900 IF SC<HSC THEN 928 
910 HSC**SC 

920 PR I NT ""SCORE ="iSC«' 

930 PRINT "HIGH SCORE =";HSC« « « « 

940 INPUT "PLRY RGRIN? ":Q$ 
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950 IF SEG$<Q$.1.1)«"N" THEN 1009 
960 SC=0 
970 NG«0 

980 CPU. C0L0RC16..6.1) 
990 GOTO 140 
1000 END 



Capitals 

This program will ask you for the capital of a country. Enter the 
right answer (spelt correctly!) and a further question will be 
asked. If an incorrect answer is given, you will have three more 
tries to get the right answer, after which the answer will be 
printed. 

The list of countries and capitals can be extended by adding extra 
data statements after line 550 and increasing the numbers in lines 
150, 170 and 220 to match the number of data statements. 

100 REM 

U0 REM CflPITflLS 
120 REM 

130 CRLL CLERR 
140 RRNDOMIZE 
150 DIM C$<20>.P$<20> 
160 REM RERD IN DRTR 
170 FOR J=l TO 20 
180 READ C$<J).P$<J> 
190 NEXT J 
200 CN=0 

210 REM PICK COUNTRY 
220 RNaINT<RND*20>+l 
230 IF RN=R THEN 220 
240 R»RN 

250 PRINT "WHAT IS THE CRPITRL OF ".jC^CR).* 

260 INPUT RN$ 

270 IF flN$«P$CR>THEN 320 

280 CNaCN+1 

290 IF CN«4 THEN 340 

300 PRINT :«"TRY RGRIN!"'' 
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310 GOTO 260 

320 PRINT : « "CORRECT! " : « 

330 GOTO 200 

340 PRINT :«"THE CAPITAL OF "iCSCRXj" 

IS "jP$CR>J " ' ' 
350 GOTO 200 

360 DATA AFGHAN I STAN ..KABUL 

370 DATA ARGENTINA. BUENOS AIRES 

380 DATA BELGIUM ..BRUSSELS 

390 DATA BRAZIL, RIO DE JANEIRO 

400 DATA CANADA, OTTAWA 

410 DATA CUBA, HAVANA 

420 DATA DENMARK, COPENHAGEN 

430 DATA EGYPT, CAIRO 

440 DATA ENGLAND, LONDON 

450 DATA FRANCE, PARIS 

460 DATA GREECE, ATHENS 

470 DATA ITALY, ROME 

4S0 DATA JAMAICA, KINGSTON 

490 DATA NIGERIA, LAGOS 

500 DATA NORWAY, OSLO 

510 DATA PORTUGAL, LISBON 

520 DATA RUSSIA, MOSCOW 

530 DATA SCOTLAND; EDINBURGH 

540 DATA SPAIN, MADRID 

550 DATA U. S- A. , WASHINGTON 



Shoebox 



Shoebox offers a complete home, tape-based, filing system. 

It will allow you to create and update files, e.g. list of names and 
telephone numbers, birthdays and dates, names and addresses, 
etc., as well as accessing those files to search for a particular entry 
or to list the entire file. 

By using a menu-driven modular system of programming, it is 
possible to add extra routines to fulfil additional functions, e.g. 
sort, information search, list to printer, etc. 

100 REM 

110 REM SHOEBOX 
120 REM 

130 DIM R$<200). I$<200> 
140 J=l 

150 CALL CLEAR 

160 REM MENU 

170 PRINT "1. INPUT FILE"«' 

180 PRINT "2. UPDATE FILE" « « 

190 PRINT "3. PRINT RECORDS" : « 

200 PRINT "4. SEARCH RECORDS"-.: 

210 PRINT "5. WRITE FILE" « « 

220 PRINT "6. END" « • 

230 INPUT "WHICH NUMBER? "'CH 

240 PRINT ' ' 

250 IF <CH<i>+CCH>6>THEN 239 
?60 ON CH GOTO 280.360.-470.550.690.750 
270 REM INPUT FILE 
280 OPEN #2' "CSl". INTERNAL. INPUT .. 
FIXED 128 
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2SQ INPUT #2'R$<: J>. I$< J> 

300 IF R$<J>«"EHD" THEN 330 

310 J«J+1 

320 GOTO 290 

330 CLOSE #2 

340 GOTO 150 

350 REM UPDRTE FILE 

360 PRINT "ENTER RECORDS AND INFORMRTION 

SEPRRRTELY."' 
370 PRINT "TYPE ""ENO"" TO FINISH. « 
380 PRINT "RECORD" J J" 
390 INPUT R$CJ> 
400 IF R*<J)«"END" THEN 450 
410 PRINT "INFORMATION"'' 
420 INPUT I$<J) 
430 J»J+1 
440 GOTO 3S0 
450 GOTO 150 
460 REM PRINT RECORDS 
470 FOR M-^l TO J 
480 PRINT R$<M>« ' I$<M>' « ' ' 
490 REM PRUSE 
500 FOR DEL«1 TO 500 
510 NEXT DEL 
520 NEXT M 
530 GOTO 150 
540 REM SEARCH RECORDS 
550 INPUT "RECORD REQUIRED? "'Q$ 
560 PRINT ' ' 
570 FOR M=l TO J 
580 IF R$<M>=Q$ THEN 620 
390 NEXT M 

600 PRINT « "RECORD NOT FOUND" ' 
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610 GOTO 659 

620 PRINT R!Bai) 

630 PRINT I*ai> 

640 REM PRUSE 

650 FOR DEL=1 TO 3000 

660 NEXT DEL 

670 GOTO 150 

680 REM WRITE FILE 

690 OPEN #3: "CS I'M NTERNflL. OUTPUT. 

FIXED 128 
700 FOR Mai TO J 
710 PRINT #3'R$<M>.I$«:M) 
720 NEXT M 
730 CLOSE #3 
740 GOTO 150 
750 END 



102 



Moneybags 

It's pennies from heaven, or at least dollar signs from the top of 
the screen, in this amusing game. You control a catcher at the 
bottom of the screen, moving with the S and D keys. Catch as 
many of the dollars as you can, but miss 20 and the game ends. 

100 REM 

110 REM MONEYBAGS 

120 REM 

130 RANDOMIZE 

140 CALL CLEAR 

150 REM INITIAL VALUES 

160 CR«23 

170 CC«15 

180 CALL CH ARC 130.. "000000008 18 IFFFF" ) 
190 FOR M«l TO 3 
200 R<M)=»1 

210 C< M I NT< RND*29 H3 

£20 NEXT M 

230 GOTO 580 

240 REM MOVE DOLLARS 

250 J«INT<RND*3)+1 

260 CALL HCHAR<R< J>.C< J>..32> 

270 R<J>«R<J>+1 

280 IF R<JX>23 THEN 330 

290 IF C<JX>CC THEN 330 

300 CALL SOUND< 100. 330.2 > 

310 SCsSC+10 

320 GOTO 370 

330 IF R<JK>24 THEN 400 

340 CALL SOUND<100.220..2> 

350 CN«CN+1 
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360 IF CN=20 THEN 620 
370 C< J >= I NTC RHD*29 >+3 
380 RCJ >=»1 
390 GOTO 420 

400 CALL HCHRR<R< J>.C< J>.3 
410 CRLL SOUHD<50.220*J.3> 
420 RETURN 

430 REM MOVE CATCHER 

440 CALL KEYC0.K.S) 

450 IF 3=0 THEN 550 

460 CALL HCHARC.CR.CC.32) 

470 IF K068 THEN 490 

480 CC=CC+1 

490 IF K083 THEN 510 

500 CC=CC-1 

510 IF COS THEN 530 

52PI CC— 

530 IF CC<32 THEN 559 
540 CC=32 

550 CALL HCHAPXCR..CC.. 130> 

560 RETURN 

570 REM MAIN LOOP 

580 GOSUB 250 

590 GOSUB 440 

600 GOTO 580 

610 REM GAME OVER 

620 PRINT ' ' : : "YOUR SCORE 

630 END 
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If you have enjoyed programming this selection of games and 
educational programs you will be interested in several adventure 
games which are available through: 

APEX TRADING LTD, 

115 Crescent Drive South, 

Brighton BN2 6SB 

Telephone Brighton (0273) 36894 for details. 



GETTING STARTED with the 

TEXAS TI-99/4A 

STEPHEN SHAW 

Aimed at first time users, 
this book takes you from setting up your machine 
and guides you step by step 
until you become sufficiently expert 
to write your own programs. 

This 'essential' hook 
will help you 
use TI Basic 
imderstand Extended Basic 
design programs 
file data on cassette 

Example programs are shown in the book 
along with chapters on how to increase 

the capabilities of your machine 
through modules, printers, RAM packs 
and disk systems. 

THE AUTHOR 
Stephen Shaw is a recognised authority 

ontheTI99/4A 
and contributes regularly to the TI User, 
Home Computing Weekly and Computer & Video Games. 
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run a horse race, 
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check up on your metric conversions, 
run your own filing system, 
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look after your own home accounts. 
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